home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD016a.dsk / FEB 83.COVER.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  55 lines
  1. 100  REM ***********************
  2. 110  REM * SOFTDISK COVER PAGE *
  3. 120  REM * V2 #6 FEBRUARY 1983 *
  4. 130  REM *                     *
  5. 140  REM *     BY JIM GANZ     *
  6. 150  REM *    82 SPRING LANE   *
  7. 160  REM *  WEST HARTFORD, CT. *
  8. 170  REM *        06107        *
  9. 171  REM *                     *
  10. 172  REM * (BASED ON A COVER   *
  11. 173  REM * I DID FOR 'CLOAD'   *
  12. 174  REM * BACK IN 1980)       *
  13. 180  REM *                     *
  14. 190  REM * TEXT GENERATED WITH *
  15. 200  REM *    "HIGHER TEXT"    *
  16. 210  REM *                     *
  17. 220  REM * PICTURE PACKING AND *
  18. 230  REM *    UNPACKING BY     *
  19. 240  REM * DAVID LUBAR FROM    *
  20. 250  REM *"CREATIVE COMPUTING,"*
  21. 260  REM * JUNE 1981 PP.128-38 *
  22. 270  REM ***********************
  23. 280  REM 
  24. 290  POKE 230,32: HCOLOR= 0: HPLOT 0,0: CALL 62454: TEXT : HOME :D$ =  CHR$(4)
  25. 300  GOSUB 400: IF  PEEK(4096) < >173  OR  PEEK(4097)  THEN  PRINT D$;"BLOAD COVER.UNPACK"
  26. 310  PRINT D$;"BLOAD COVER.FEB.PCKD"
  27. 320  VTAB 22: HTAB 7: PRINT "PRESS ANY KEY TO VIEW COVER"
  28. 330  VTAB 24: HTAB 7: PRINT "(THEN PRESS AGAIN TO EXIT)";
  29. 340  POKE  -16368,0: CALL  -756
  30. 350  POKE 33,1: FOR X = 0 TO 19: POKE 32,X: HOME : POKE 32,39 -X: HOME : NEXT : TEXT 
  31. 360  POKE  -16300,0: POKE  -16302,0: POKE  -16297,0: POKE  -16304,0
  32. 370  CALL 4096: POKE  -16368,0
  33. 380  CALL  -756: PRINT 
  34. 390  PRINT D$;"RUN KICK.IT.OFF"
  35. 400  VTAB 3: INVERSE : FOR X = 0 TO 11: HTAB 7: PRINT  SPC( 34): NEXT 
  36. 410  NORMAL 
  37. 420  VTAB 1: HTAB 3: PRINT "S O F T D I S K   M A G A Z E T T E"
  38. 430  VTAB 5: PRINT "QUOTE": PRINT "OF": PRINT "THE": PRINT "MONTH"
  39. 440  PRINT : PRINT "--->"
  40. 450  INVERSE 
  41. 460  VTAB 4:X = 8
  42. 470  HTAB X: PRINT  CHR$(34)"...WRITING A CHESS PROGRAM IS A"
  43. 475  HTAB X: PRINT "GREAT CHALLENGE... THE NUMBER OF"
  44. 480  HTAB X: PRINT "POSSIBLE CHESS GAMES SO FAR EX-"
  45. 490  HTAB X: PRINT "CEEDS THE NUMBER OF ATOMS IN THE"
  46. 500  HTAB X: PRINT "UNIVERSE, THAT EVEN WERE EACH"
  47. 505  HTAB X: PRINT "ATOM TO BE REPLACED BY A CRAY 1"
  48. 510  HTAB X: PRINT "COMPUTER, IT WOULD TAKE THE"
  49. 515  HTAB X: PRINT "WHOLE SYSTEM A RATHER LONG TIME"
  50. 520  HTAB X: PRINT "TO MAKE THE FIRST MOVE IN A PER-"
  51. 525  HTAB X: PRINT "FECT GAME OF CHESS." CHR$(34)
  52. 530  NORMAL : VTAB 16
  53. 540  PRINT "* DAVID LEVY IN 'INTELLIGENT COMPUTER     GAMES,' CREATIVE COMPUTING, NOV. 1980."
  54. 550  VTAB 19: HTAB 12: PRINT "COVER BY JIM GANZ"
  55. 560  RETURN